home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcresrc / pcr8807.arc / QUIKSHOT.BAS < prev    next >
BASIC Source File  |  1988-04-01  |  1KB  |  28 lines
  1. 10 ON ERROR GOTO 270
  2. 20 CLS:PRINT"CREATING QUIKSHOT.COM"
  3. 30 OPEN "QUIKSHOT.COM" FOR OUTPUT AS #1
  4. 40 FOR BYTE=&H100 TO &H207
  5. 50   READ VALUE$
  6. 60    PRINT#1,CHR$(VAL("&H"+VALUE$));
  7. 70 NEXT BYTE
  8. 80 CLOSE #1
  9. 90 LOCATE 1,1:PRINT"COMPLETE ..                ":END
  10. 100 DATA EB,51,1D,00,44,49,53,50,4C,41,59,40,2E,43,4F,4D
  11. 110 DATA 00,EB,06,00,00,00,00,00,00,B4,0F,CD,10,50,8A,1E
  12. 120 DATA 03,01,38,D8,74,07,B4,00,A0,03,01,CD,10,1E,B8,00
  13. 130 DATA B8,8E,C0,8B,3E,06,01,BE,3F,01,8B,0E,04,01,FC,F3
  14. 140 DATA A4,B4,08,CD,21,1F,58,B4,00,CD,10,B8,00,4C,CD,21
  15. 150 DATA 00,00,00,BA,61,01,B0,05,B4,25,CD,21,BA,E8,03,CD
  16. 160 DATA 27,FA,1E,0E,1F,80,3E,52,01,FF,74,11,50,53,51,52
  17. 170 DATA 06,56,57,0E,1F,C6,06,52,01,FF,EB,2A,90,1F,FB,CF
  18. 180 DATA C6,06,52,01,00,5F,5E,07,5A,59,5B,58,1F,FB,CF,BA
  19. 190 DATA 04,01,B9,00,00,B4,3C,CD,21,A3,50,01,C3,B4,3E,8B
  20. 200 DATA 1E,50,01,CD,21,C3,A0,0B,01,FE,C0,3C,5B,74,D1,A2
  21. 210 DATA 0B,01,33,C0,06,8E,C0,BE,49,04,26,8B,04,A2,14,01
  22. 220 DATA 83,C6,03,26,8B,04,A3,15,01,83,C6,02,26,8B,04,A3
  23. 230 DATA 17,01,07,E8,B9,FF,8B,1E,50,01,1E,BA,11,01,B9,3F
  24. 240 DATA 00,B4,40,CD,21,72,19,8B,16,17,01,8B,0E,15,01,B8
  25. 250 DATA 00,B8,8E,D8,B4,40,CD,21,72,06,1F,E8,9F,FF,EB,80
  26. 260 DATA 1F,E8,99,FF,E9,79,FF,2B
  27. 270 PRINT"BASIC ERROR";ERR;"IN LINE";ERL:STOP
  28.